#!/usr/bin/perl

use Gtk2 -init;

my $builder_file = "mytest.glade";

my $builder = Gtk2::Builder->new();
$builder->add_from_file( $builder_file )
    or die "Couldn't read $builder_file";
	$builder->connect_signals( undef );

my $window = $builder->get_object( "window" )
    or die "Error while setting up GUI";
	
	$window->show_all();

# Dealloc builder
$builder = undef;

Gtk2->main;

#-----------------------------
sub my_quit{ 
#-----------------------------
 exit;
} 

